
* This do-file runs the vote regressions at the individual level on Europe, based on ESS data

* NU* are region fixed effects

* trendNU* are region-specific trends


use DB_For_Vote_Regressions_Individual_Europe.dta,clear

*************************
* Table 2 - Columns 3-4 *
*************************

reg environmentalism trade_exposure_tot female age high_edu NU* trendNU* [pweight=pspwght], cluster(nuts2_year) 

ivreg2 environmentalism female age high_edu NU* trendNU* (trade_exposure_tot=iv_trade_exposure_tot) [pweight=pspwght], first cluster(nuts2_year) 


*************
* Table A31 *
*************

ivreg2 environmentalism female age high_edu NU* trendNU* (trade_exposure_tot=iv_trade_exposure_tot) [pweight=pspwght], cluster(nuts2_year) 

ivreg2 environmentalism female age high_edu NU* trendNU* (trade_exposure_tot int_female=iv_trade_exposure_tot iv_int_female) [pweight=pspwght], cluster(nuts2_year) 

ivreg2 environmentalism female age high_edu NU* trendNU* (trade_exposure_tot int_high_edu=iv_trade_exposure_tot iv_int_high_edu) [pweight=pspwght], cluster(nuts2_year) 

ivreg2 environmentalism white_collar female age high_edu NU* trendNU* (trade_exposure_tot int_white_collar=iv_trade_exposure_tot iv_int_white_collar) [pweight=pspwght], cluster(nuts2_year) 

ivreg2 environmentalism blue_collar female age high_edu NU* trendNU* (trade_exposure_tot int_blue_collar=iv_trade_exposure_tot iv_int_blue_collar) [pweight=pspwght], cluster(nuts2_year) 

ivreg2 environmentalism unemployed female age high_edu NU* trendNU* (trade_exposure_tot int_unemployed=iv_trade_exposure_tot iv_int_unemployed) [pweight=pspwght], cluster(nuts2_year) 

ivreg2 environmentalism student female age high_edu NU* trendNU* (trade_exposure_tot int_student=iv_trade_exposure_tot iv_int_student) [pweight=pspwght], cluster(nuts2_year) 

ivreg2 environmentalism retired female age high_edu NU* trendNU* (trade_exposure_tot int_retired=iv_trade_exposure_tot iv_int_retired) [pweight=pspwght],  cluster(nuts2_year) 

ivreg2 environmentalism young female age high_edu NU* trendNU* (trade_exposure_tot int_young=iv_trade_exposure_tot iv_int_young) [pweight=pspwght], cluster(nuts2_year) 

ivreg2 environmentalism old female age high_edu NU* trendNU* (trade_exposure_tot int_old=iv_trade_exposure_tot iv_int_old) [pweight=pspwght], cluster(nuts2_year) 


*************
* Table A32 *
*************

ivreg2 environmentalism female age high_edu NU* trendNU* (trade_exposure_tot=iv_trade_exposure_tot) [pweight=pspwght] if radical_right==1, first cluster(nuts2_year) 

